home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2010 August / maximum-cd-2010-08.iso / DiscContents / AutoHotkey104805_Install.exe / Extras / Editors / EditPlus / Run this to install syntax and cliptext files for EditPlus.ahk < prev   
Encoding:
Text File  |  2005-02-16  |  3.6 KB  |  111 lines
  1. ; Install AutoHotkey syntax highlighting and clip library files in EditPlus
  2. ; Mike Griffin
  3.  
  4. SetBatchLines,-1 ;fastest!
  5. title = Install EditPlus Syntax & Cliptext Files for AutoHotkey
  6.  
  7. RegRead,EditPlusDir,HKEY_CURRENT_USER,Software\ES-Computing\EditPlus 2\Install,Path
  8. StringTrimRight,EditPlusDir,EditPlusDir,1
  9. ; Don't bother since %ProgramFiles% doesn't exist on Win95/98 and EditPlus should always
  10. ; have registry entries if it was installed properly:
  11. ;IfEqual,EditPlusDir,,SetEnv,EditPlusDir,%ProgramFiles%\EditPlus 2 ; Try a best-guess location.
  12. IfNotExist,%EditPlusDir%
  13. {
  14.     MsgBox,16,%title%,EditPlus directory could not be found - It may not be installed
  15.     Exit
  16. }
  17.  
  18. ; Prompt the user to run the script
  19. MsgBox,36,%title%,Do you want to install EditPlus syntax and cliptext files for AutoHotkey scripts, and configure EditPlus to use them?
  20. IfMsgBox,No,Exit
  21. IfMsgBox,Cancel,Exit
  22.  
  23. FileCopy,AutoHotkey.stx,%EditPlusDir%,1
  24. if ErrorLevel <> 0
  25. {
  26.     MsgBox,16,%title%,Could not copy AutoHotkey.stx
  27.     Exit
  28. }
  29. FileCopy,AutoHotkey.ctl,%EditPlusDir%,1
  30. if ErrorLevel <> 0
  31. {
  32.     MsgBox,16,%title%,Could not copy AutoHotkey.ctl
  33.     Exit
  34. }
  35.  
  36. ; Now add or update EditPlus settings
  37. File=%EditPlusDir%\setting.ini
  38. IniRead,X,%File%,Settings,Custom
  39. if X = Error  ; Probably due to setting.ini not existing, which happens if EditPlus was just freshly installed.
  40.   X = 1
  41. Sect=Settings\Custom%X%
  42.  
  43. Loop,%X%
  44. {
  45.   XX=%A_Index%
  46.   IniRead,desc,%File%,Settings\Custom%XX%,Description
  47.   IfEqual,desc,AutoHotkey
  48.   {
  49.     Sect=Settings\Custom%XX%
  50.     AlreadyConfigured=1
  51.     Break
  52.   }
  53. }
  54.  
  55. ; Set up the configuration
  56. IniWrite,ahk`;aut,%File%,%Sect%,Extension
  57. IniWrite,AutoHotkey,%File%,%Sect%,Description
  58. ;Causes an error dialog when used with a fresh installation of EditPlus: IniWrite,%A_Space%,%File%,%Sect%,File
  59. IniWrite,4,%File%,%Sect%,Tab
  60. IniWrite,2,%File%,%Sect%,Indent
  61. IniWrite,80,%File%,%Sect%,Margin
  62. IniWrite,1,%File%,%Sect%,Word Wrap
  63. IniWrite,1,%File%,%Sect%,Auto Indent
  64. IniWrite,0,%File%,%Sect%,Tab Indent
  65. IniWrite,0,%File%,%Sect%,Common
  66. IniWrite,123,%File%,%Sect%,Indent Open
  67. IniWrite,125,%File%,%Sect%,Indent Close
  68. IniWrite,0,%File%,%Sect%,End of Statement
  69. ; Seems unnecessary: IniWrite,%A_Space%,%File%,%Sect%,Function
  70. IniWrite,%EditPlusDir%\AutoHotkey.stx,%File%,%Sect%,Syntax file
  71. IniWrite,1,%File%,%Sect%,Insert Space
  72. IniWrite,0,%File%,%Sect%,Hard break
  73. IniWrite,0,%File%,%Sect%,Wrap at Column
  74. IniWrite,0,%File%,%Sect%,Column Marker 1
  75. IniWrite,0,%File%,%Sect%,Column Marker 2
  76. IniWrite,0,%File%,%Sect%,Column Marker 3
  77. IniWrite,0,%File%,%Sect%,Column Marker 4
  78. IniWrite,0,%File%,%Sect%,Column Marker 5
  79. IniWrite,16711680,%File%,%Sect%,0
  80. IniWrite,255,%File%,%Sect%,1
  81. IniWrite,8421376,%File%,%Sect%,2
  82. IniWrite,32896,%File%,%Sect%,3
  83. IniWrite,128,%File%,%Sect%,4
  84. IniWrite,32768,%File%,%Sect%,5
  85. IniWrite,32768,%File%,%Sect%,6
  86. IniWrite,32768,%File%,%Sect%,7
  87. IniWrite,32768,%File%,%Sect%,8
  88. IniWrite,8388736,%File%,%Sect%,9
  89. IniWrite,255,%File%,%Sect%,10
  90. IniWrite,8388736,%File%,%Sect%,11
  91. IniWrite,8388736,%File%,%Sect%,12
  92. IniWrite,8388736,%File%,%Sect%,13
  93. IniWrite,8388736,%File%,%Sect%,14
  94. IniWrite,8388736,%File%,%Sect%,15
  95. IniWrite,16711935,%File%,%Sect%,16
  96.  
  97. IniWrite,0,%File%,Settings,Disable Syntax
  98.  
  99. If AlreadyConfigured <> 1
  100. {
  101.   X++
  102.   IniWrite,%X%,%File%,Settings,Custom
  103. }
  104.  
  105. ; Now prompt to make EditPlus the default editor for ahk files
  106. DefaultEditor:
  107. MsgBox,36,%title%,Do you want to make EditPlus the default editor for AutoHotkey scripts?
  108. IfMsgBox,Yes,RegWrite,REG_SZ, HKEY_CLASSES_ROOT,AutoHotkeyScript\Shell\Edit\Command,,"%EditPlusDir%\EditPlus.exe" "`%1"
  109.  
  110. MsgBox,64,%title%,Installation complete!
  111.